home *** CD-ROM | disk | FTP | other *** search
/ Interplay's Learn to Program Basic (Review Copy) / Learn to Program Basic Review Copy (Interplay)(June 23, 1998).ISO / pc / ltpbasic / refxmpl / return.bas < prev    next >
BASIC Source File  |  1998-04-07  |  248b  |  18 lines
  1. CLS
  2. Print "Enter your name:"
  3. Input name$
  4. Gosub Backward
  5. Print "Enter your friend's name:"
  6. Input name$
  7. Gosub Backward
  8. End
  9.  
  10. Backward:
  11. Print name$ " spelled backwards is "
  12. For c = Len(name$) To 1 Step -1
  13.   Print Mid$(name$,c,1);
  14. Next c
  15. Print
  16. Return    
  17.  
  18.